home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfputinfo.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  560b  |  30 lines
  1.  
  2. /* $Id: Pvmfputinfo.c,v 1.1 1997/06/27 16:30:02 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\src\pvmwin.h"
  6. #endif
  7. #include "pvm3.h"
  8. #include "pvm_consts.h"
  9.  
  10. void __fortran
  11. PVMFPUTINFO(name_ptr, bufid, flags, mbx_index, name_len)
  12. char * name_ptr; int name_len;
  13. int *bufid, *flags, *mbx_index;
  14. {
  15.  
  16.     char tname[MAX_MBOX_NAME + 1];
  17.  
  18.     /*
  19.     *  Copy the mailbox name to make sure there is
  20.     * a NUL at the end.
  21.     */
  22.     if (ftocstr(tname, sizeof(tname), name_ptr, name_len)) {
  23.         *mbx_index = PvmBadParam;
  24.         return;
  25.     }
  26.  
  27.     *mbx_index = pvm_putinfo(tname, *bufid, *flags);
  28. }
  29.  
  30.